Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d12/ptv1n1.arc/REBOOT.SRC

Text File | 1990-06-08 | 299b | 10 lines

PROCEDURE Reboot(Warm : Boolean);

BEGIN
  { Warm = True triggers warm boot with no memory test: }
  IF Warm THEN MEMW[$0040:$0072] := $1234
  { Warm = False triggers cold boot with full memory test: }
    ELSE MEMW[$0040:$0072] := 0;
  INLINE($EA/$00/$00/$FF/$FF);    { JMP FFFF:0 }
END;